home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / General / DancingGirl.script < prev    next >
Text File  |  1997-09-02  |  651b  |  52 lines
  1. SET @WALKLOOP 0|
  2. TIMER @TIME|
  3. MATH @TIME + 400|
  4. :LOOP|
  5. ONGOTO 0 @WALKLOOP WN WS WE WW|
  6. :RTLOOP|
  7. TIMER @CHKTIME|
  8. IF @CHKTIME > @TIME WALKFIX|
  9. GOTO LOOP|
  10.  
  11. :WN|
  12. WALK 0 4|
  13. GOTO RTLOOP|
  14.  
  15. :WS|
  16. WALK 1 4|
  17. GOTO RTLOOP|
  18.  
  19. :WE|
  20. WALK 2 4|
  21. GOTO RTLOOP|
  22.  
  23. :WW|
  24. WALK 3 4|
  25. GOTO RTLOOP|
  26.  
  27. :WALKFIX|
  28. RND @WALKLOOP 3|
  29. TIMER @TIME|
  30. MATH @TIME + 400|
  31. GOTO LOOP|
  32.  
  33. :TOUCH|
  34. [ "Hi there, mister!  Do you want to"|
  35. [ "see me dance?"|
  36. ] "Yes I Would" YESDANCE|
  37. ] "No, Not Now" NODANCE|
  38. GOTO LOOP|
  39.  
  40. :YESDANCE|
  41. [ "Here it goes..."|
  42. FRAMEANIM 42|
  43. FRAMEANIM 43|
  44. FRAMEANIM 44|
  45. FRAMEANIM 45|
  46. [ "Wasn't that great?!?"|
  47. GOTO LOOP|
  48.  
  49. :NODANCE|
  50. [ "Aw, come on!  I'm really good!"|
  51. GOTO LOOP|
  52.